home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aax.d64 / loader (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  339b  |  18 lines
  1. 4 IFA=1THENA=2:SYS32768:GOTO40
  2. 5 IFA=0THENA=1:LOAD"SCNGEN1.O",8,1
  3. 10 IFA=2THEN110
  4. 20 IFA=3THEN130
  5. 30 IFA=4THEN150
  6. 40 PRINTCHR$(14)
  7. 50 POKE53280,2:POKE53281,1:PRINT"[147]"
  8. 60 PRINT"";
  9. 70 PRINT"[144][204]OADING [156][215]ALL [215]ARS..."
  10. 80 PRINT"";
  11. 90 PRINT"[144].......";
  12. 100 A=2:LOAD"ASS8.O",8,1
  13. 110 PRINT"[144]......";
  14. 120 A=3:LOAD"ROAD",8,1
  15. 130 PRINT"[144].......";
  16. 140 A=4:LOAD"PLANELOC9",8,1
  17. 150 SYS32768
  18.